home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Utilities / XCMD's⁄XFCN's / Texas 0.1 / Texas version 0.1 / Texas version 0.1 / card_2822.txt < prev    next >
Encoding:
Text File  |  1988-04-24  |  7.4 KB  |  300 lines
  1. -- card: 2822 from stack: in.1
  2. -- bmap block id: 7016
  3. -- flags: 4000
  4. -- background id: 2690
  5. -- name: TexasCard
  6. ----- HyperTalk script -----
  7. on idle
  8.   put the time && the date into field "locationField"
  9.   pass idle
  10. end idle
  11.  
  12.  
  13.  
  14. -- part 55 (button)
  15. -- low flags: 00
  16. -- high flags: A003
  17. -- rect: left=5 top=287 right=310 bottom=114
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 1
  21. -- font id: 0
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: TEXAS Help, etc.
  26. ----- HyperTalk script -----
  27. on mouseUp
  28.   visual effect barn door open
  29.   go to card "TEXAS help"
  30. end mouseUp
  31.  
  32.  
  33. -- part 65 (field)
  34. -- low flags: 81
  35. -- high flags: 0004
  36. -- rect: left=6 top=119 right=265 bottom=283
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 0 / 0
  39. -- text alignment: 0
  40. -- font id: 3
  41. -- text size: 9
  42. -- style flags: 0
  43. -- line height: 12
  44. -- part name: aboutTexasField
  45. ----- HyperTalk script -----
  46. on mouseUp
  47.   hide card field "aboutTexasField"
  48. end mouseUp
  49.  
  50.  
  51.  
  52. -- part 53 (button)
  53. -- low flags: 00
  54. -- high flags: A003
  55. -- rect: left=399 top=127 right=151 bottom=508
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: Open Index
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   global textFileNum, maxText, keyFileNum, maxKey, ptrFileNum, maxPtr, keyNum
  67.   if textFileNum <> 0 then
  68.     get closeFile(textFileNum)
  69.     put 0 into textFileNum
  70.   end if
  71.   if keyFileNum <> 0 then
  72.     get closeFile(keyFileNum)
  73.     put 0 into keyFileNum
  74.   end if
  75.   if ptrFileNum <> 0 then
  76.     get closeFile(ptrFileNum)
  77.     put 0 into ptrFileNum
  78.   end if
  79.   get openIndexFiles( 0, 0)
  80.   if It <> empty then
  81.     put first item of It into textFileNum
  82.     put second item of It into maxText
  83.     put third item of It into keyFileNum
  84.     put (fourth item of It) / 32 into maxKey
  85.     put fifth item of It into ptrFileNum
  86.     put (sixth item of It) / 4 into maxPtr
  87.     put trunc ( maxKey / 2) into keyNum
  88.     fillKeysField 0
  89.     visual effect iris open
  90.     go to card "IndexCard"
  91.   end if
  92. end mouseUp
  93.  
  94.  
  95.  
  96. -- part 67 (button)
  97. -- low flags: 00
  98. -- high flags: A003
  99. -- rect: left=399 top=208 right=232 bottom=508
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: Join Files
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   get catFiles(0,0)
  111. end mouseUp
  112.  
  113.  
  114.  
  115. -- part 70 (button)
  116. -- low flags: 00
  117. -- high flags: A003
  118. -- rect: left=399 top=154 right=178 bottom=508
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 0 / 0
  121. -- text alignment: 1
  122. -- font id: 0
  123. -- text size: 12
  124. -- style flags: 0
  125. -- line height: 16
  126. -- part name: Build Index
  127. ----- HyperTalk script -----
  128. on mouseUp
  129.   get buildIndex (0, 0, 100000)  -- reduce 100000 if short on memory!
  130. end mouseUp
  131.  
  132.  
  133.  
  134.  
  135. -- part 72 (button)
  136. -- low flags: 00
  137. -- high flags: A003
  138. -- rect: left=399 top=181 right=205 bottom=508
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 0 / 0
  141. -- text alignment: 1
  142. -- font id: 0
  143. -- text size: 12
  144. -- style flags: 0
  145. -- line height: 16
  146. -- part name: Merge Indices
  147. ----- HyperTalk script -----
  148. on mouseUp
  149.   get mergeIndices (0, 0, 100000) -- reduce 100000 if short on memory!
  150. end mouseUp
  151.  
  152.  
  153.  
  154.  
  155. -- part 75 (button)
  156. -- low flags: 00
  157. -- high flags: A003
  158. -- rect: left=399 top=235 right=259 bottom=508
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 0 / 0
  161. -- text alignment: 1
  162. -- font id: 0
  163. -- text size: 12
  164. -- style flags: 0
  165. -- line height: 16
  166. -- part name: Delete Files
  167. ----- HyperTalk script -----
  168. on mouseUp
  169.   get delFiles(0,0)
  170. end mouseUp
  171.  
  172.  
  173.  
  174. -- part 82 (button)
  175. -- low flags: 00
  176. -- high flags: A003
  177. -- rect: left=5 top=313 right=337 bottom=114
  178. -- title width / last selected line: 0
  179. -- icon id / first selected line: 0 / 0
  180. -- text alignment: 1
  181. -- font id: 0
  182. -- text size: 12
  183. -- style flags: 0
  184. -- line height: 16
  185. -- part name: Quick Start Tips
  186. ----- HyperTalk script -----
  187. on mouseUp
  188.   show card field "Quick Tips Field"
  189. end mouseUp
  190.  
  191.  
  192. -- part 83 (field)
  193. -- low flags: 81
  194. -- high flags: 0004
  195. -- rect: left=2 top=75 right=341 bottom=330
  196. -- title width / last selected line: 0
  197. -- icon id / first selected line: 0 / 0
  198. -- text alignment: 0
  199. -- font id: 3
  200. -- text size: 12
  201. -- style flags: 0
  202. -- line height: 16
  203. -- part name: Quick Tips Field
  204. ----- HyperTalk script -----
  205. on mouseUp
  206.   hide card field "Quick Tips Field"
  207. end mouseUp
  208.  
  209.  
  210. -- part 84 (button)
  211. -- low flags: 00
  212. -- high flags: 0000
  213. -- rect: left=403 top=67 right=126 bottom=500
  214. -- title width / last selected line: 0
  215. -- icon id / first selected line: 0 / 0
  216. -- text alignment: 1
  217. -- font id: 0
  218. -- text size: 12
  219. -- style flags: 0
  220. -- line height: 16
  221. -- part name: Open Index
  222. ----- HyperTalk script -----
  223. on mouseUp
  224.   global textFileNum, maxText, keyFileNum, maxKey, ptrFileNum, maxPtr, keyNum
  225.   if textFileNum <> 0 then
  226.     get closeFile(textFileNum)
  227.     put 0 into textFileNum
  228.   end if
  229.   if keyFileNum <> 0 then
  230.     get closeFile(keyFileNum)
  231.     put 0 into keyFileNum
  232.   end if
  233.   if ptrFileNum <> 0 then
  234.     get closeFile(ptrFileNum)
  235.     put 0 into ptrFileNum
  236.   end if
  237.   get openIndexFiles(0,0)
  238.   if It <> empty then
  239.     put first item of It into textFileNum
  240.     put second item of It into maxText
  241.     put third item of It into keyFileNum
  242.     put (fourth item of It) / 32 into maxKey
  243.     put fifth item of It into ptrFileNum
  244.     put (sixth item of It) / 4 into maxPtr
  245.     put trunc ( maxKey / 2) into keyNum
  246.     fillKeysField 0
  247.     visual effect iris open
  248.     go to card "IndexCard"
  249.   end if
  250. end mouseUp
  251.  
  252.  
  253.  
  254. -- part 87 (button)
  255. -- low flags: 00
  256. -- high flags: 0000
  257. -- rect: left=95 top=42 right=68 bottom=126
  258. -- title width / last selected line: 0
  259. -- icon id / first selected line: 19678 / 19678
  260. -- text alignment: 1
  261. -- font id: 0
  262. -- text size: 12
  263. -- style flags: 0
  264. -- line height: 16
  265. -- part name: aboutTexasButton
  266. ----- HyperTalk script -----
  267. on mouseUp
  268.   show card field "aboutTexasField"
  269. end mouseUp
  270.  
  271.  
  272.  
  273. -- part contents for card part 65
  274. ----- text -----
  275.      TEXAS, version 0.1, was written by Mark^Zimmermann.  You may use and distribute it freely, provided:
  276.   ‚Ä¢ you leave this notice intact;
  277.   ‚Ä¢ you send me your bug reports and suggestions;
  278.   ‚Ä¢ you share with me the best programs you develop and the best ideas you have, if you use TEXAS extensively as a research aid.
  279.           TEXAS‚Ñ¢ ¬©1987, 1988 ‚Äî Mark^Zimmermann
  280. 9511 Gwyndale Dr.                [75066,2044] CompuServe
  281. Silver Spring, MD  20910           science@nems.ARPA
  282. USA                                               301-565-2166
  283.                             ^z - 19880103
  284.  
  285. -- part contents for background part 7
  286. ----- text -----
  287. 1:24 AM 4/24/88
  288.  
  289. -- part contents for card part 83
  290. ----- text -----
  291. To get started using TEXAS fast:
  292.   ‚Ä¢ find or make a text file, on a disk with enough room to hold two more copies of it;
  293.   ‚Ä¢ click the "Build Index" button to index it;
  294.   ‚Ä¢ click the "Open Index" button to see its index;
  295.   ‚Ä¢ click on a line in the index display to see all occurrences of that word in context;
  296.   ‚Ä¢ click on a line in the context display to see the full text around that word;
  297.   ‚Ä¢ copy/paste information from other displays into the notes card as desired;
  298.   ‚Ä¢ move from card to card, browsing & having fun;
  299.   ‚Ä¢ read the detailed instructions on the TEXAS Help card, then repeat the above steps with other, larger text files, until you run out of disk space.
  300.                          880103 ‚Äî ^z